COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		REAL I,II,III,IV
C00005 ENDMK
C⊗;
	REAL I,II,III,IV
	DIMENSION NM(4,18),I(18),II(12,18),III(18),IV(3,18)
	1,GRADE(18),XI(18),XII(18),XIII(18),XIV(18)
	DATA NM/
	1'ASH,REUEL           ','COHEN,ANDY          ',
	1'DAMON,RICHARD       ','DYRUD,BETH          ',
	1'GAVER,ELIZ.         ','GRANT,SUSAN         ',
	1'HALBERT,ALLAN       ','LEE,VIVIANNE        ',
	1'MILLER,ROBERT       ','OSBORNE,KIM         ',
	1'PERLOFF,NANCY       ','RAIN,BARBARA        ',
	1'SAWHILL,BRUCE       ','SETRAKIAN,MARY      ',
	1'SIMS,JANET          ','TOGASHI,SANDRA      ',
	1'WASSERMAN,NATALIE   ','WEISZ,MARGIE        '/
	CALL IFILE(1,'SCRS')
	JK=0
32	READ(1,44,END=33)K
	DO 31 N=1,18
31	IF(K.EQ.NM(1,N))GO TO 1
	GO TO 32
1	TYPE 2,(NM(K,N),K=1,4)
2	FORMAT(1X,4A5)
44	FORMAT(A5)
	READ(1,4)(II(K,N),K=1,9)
	RI=0
	DO 7  K=1,9
	IF(II(K,N).NE.0)GO TO 70
	TYPE 8
8	FORMAT(' **** MISSING INPUT ****'/)
70	A=1
	IF(K.EQ.4.OR.K.EQ.6)A=2
	IF(K.EQ.9)A=2.5
7	RI=RI+II(K,N)*A

	XI(N)=RI/12.5
4	FORMAT(20F)
	GRADE(N)=XI(N)
	JK=JK+1
	GO TO 32

22	FORMAT(' SCORE=',F9.2/)
33	CALL OFILE(1,'SCORE')
	RK=JK
	R=0
	DO 25 K=1,18
25	R=R+GRADE(K)
	R=R/RK
	TYPE 24,R
	WRITE(1,24)R
24	FORMAT(/' AVERAGE=',F7.2/)
	DO 23 K=1,18
	IF(GRADE(K).EQ.0)GO TO 23
	TYPE 2,(NM(N,K),N=1,4)
	WRITE(1,2),(NM(N,K),N=1,4)
	TYPE 22,GRADE(K)
	WRITE(1,22)GRADE(K)
23	CONTINUE
	END